Public Class SQLParseCreateTable
    Inherits SQLParser

    Protected Overrides Function MyParserState() As SQLParserState
        Return SQLParserState.SQLParseCreateTable
    End Function

    Protected Friend Overrides Sub ParseCommands(ByVal Commands() As String, ByRef tables As TableList)
        Dim newTable As New Table
        If Commands.Length < 2 Then Return
        If Commands(0).ToLower() = "create" And Commands(1).ToLower() = "table" Then
            newTable.TableName = Commands(Commands.Length - 1)
            tables.Add(newTable)
            Me.SetParserState(SQLParserState.SQLParseColumnDefinition)
        End If
    End Sub
End Class
